﻿Imports DTO
Imports BUS
Imports DAO

Public Class ucDSSach
    Public Sub LoadSach()
        Dim sachs As IQueryable(Of Object)
        Dim sBUS As New SachBUS
        sachs = sBUS.LayBang()

        dgvDSSach.DataSource = sachs
        dgvDSSach.Columns(0).HeaderText = "Tên Sách"
        dgvDSSach.Columns(1).HeaderText = "Thể Loại"
        dgvDSSach.Columns(2).HeaderText = "Tác Giả"
        dgvDSSach.Columns(3).HeaderText = "Số Lượng"
        dgvDSSach.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
    End Sub
End Class
